home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 April / 64er_Magazin_87-04_1987_Markt__Technik_de.d64 / fractale 9.0.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  25KB  |  1,586 lines
  1. 10 tanfractale 9.0
  2. 20 tangeschrieben 11/86
  3. 30 tanauf einem c64 mit xlsinassmon
  4. 40 tanvon
  5. 50 tani. camclrusen
  6. 60 tanaspenweg 29
  7. 70 tan1000 berlin 20
  8. 80 tan
  9. 90 tan
  10. 100 tan
  11. 110 tanbenutzte betriebssystemsinroutinen
  12. 120 tan
  13. 130 kopierenfrernda3c0
  14. 140 stringoutfrerndab1e
  15. 150 numoutfrerndbdcd
  16. 160 zeilclrfrernde9ff
  17. 170 sekadrsendfrerndff96
  18. 180 iecinfrerndffa5
  19. 190 talkfrerndffb4
  20. 200 filparfrerndffba
  21. 210 filnamfrerndffbd
  22. 220 printfrerndffd2
  23. 230 loadfrerndffd5
  24. 240 savefrerndffd8
  25. 300 tan
  26. 310 tanverwendete adressen
  27. 320 tan
  28. 330 facfrernd61
  29. 340 memfrernd8b
  30. 350 filenamefrernd02c0
  31. 360 arrayfrernd6000
  32. 370 datendfrernd7100
  33. 380 naehfredatendsin1
  34. 390 swfredatendsin2
  35. 400 a2fredatendsin3
  36. 410 awfredatendsin4
  37. 420 menuebegfrernd71ff
  38. 430 multitextfrernd7340
  39. 440 xk'lfrerndd000
  40. 450 ykfrerndd001
  41. 460 xk'hfrerndd010
  42. 470 sourcemapfrernda000
  43. 480 zielmapfrernde000
  44. 490 multxtadrfrernde000cos264
  45. 500 tan
  46. 510 tanvariable
  47. 520 tan
  48. 530 xvfre30
  49. 540 yvfre50
  50. 550 verzfre2
  51. 560 umblendverzfre10
  52. 570 bckgndfre15
  53. 900 tan
  54. 910 tan
  55. 920 expfrernd8000
  56. 930 tan
  57. 1000 tan
  58. 1010 tanexpexpexpexpexpexpexpexpexpexpexpexpexp
  59. 1020 tanhauptprogramm
  60. 1030 tanexpexpexpexpexpexpexpexpexpexpexpexpexp
  61. 1040 tan
  62. 1050 return#8                tan"<c=>+<shift> blockieren
  63. 1060 [183] print
  64. 1070 [142]#6
  65. 1080 [139] 53280
  66. 1090 [192]
  67. 1100 init[183] dataclr          [192]"einsprung nach 'run' ohne stuetzpunkte
  68. 1110 usr varinit
  69. 1120 usr mausan
  70. 1130 usr busyon
  71. 1140 usr ein
  72. 1150 usr clr2
  73. 1160 usr berechnen
  74. 1170 tan
  75. 1180 runusr clr2             tan"einsprung nach 'dload' u. 'run' mit
  76. 1190 [183] ein              [192]"stuetzpunkten
  77. 1200 usr mausan
  78. 1210 usr busyon
  79. 1220 usr farbset
  80. 1230 usr zeichnen
  81. 1240 usr grafikcopy
  82. 1250 usr busyoff
  83. 1260 tan
  84. 1270 run2usr ein              tan"einsprung nach 'gsave' u. 'dsave'
  85. 1280 [183] farbset
  86. 1290 [183] mausan
  87. 1300 [192]
  88. 1310 main[183] menueein         [192]"hauptschleife
  89. 1320 return#0
  90. 1330 if befehl
  91. 1340 main1return#1
  92. 1350 if feuerflag
  93. 1360 rem#70
  94. 1370 usr joyverz
  95. 1380 usr feueroff?
  96. 1390 usr joyloop
  97. 1400 return zeile            tan"maus auf der menuezeile?
  98. 1410 [181] main             [192]"nein ==> hauptschleife
  99. 1420 usr getbefnr         tan"ja, nummer des befehls holen
  100. 1430 [145] befehl           [192]"zweiter klick?
  101. 1440 abs bef1?            tan"ja, befehl ausfuehren
  102. 1450 [139] befehl           [192]"nein, befehlsnummer speichern,
  103. 1460 usr menueein         tan"befehl im menue invertieren
  104. 1470 [183] befinv
  105. 1480 [135] main1
  106. 1490 [192]
  107. 1500 bef1?[145]#1
  108. 1510 [181] bef2?
  109. 1520 [142]#5                [192]"'next' ausfuehren
  110. 1530 on naeh
  111. 1540 < main
  112. 1550 usr busyon
  113. 1560 usr berechnen
  114. 1570 usr zeichnen
  115. 1580 usr umblenden
  116. 1590 usr busyoff
  117. 1600 read main
  118. 1610 tan
  119. 1620 bef2?on#2
  120. 1630 int bef3?
  121. 1640 usr mausoff          tan"'run' ausfuehren
  122. 1650 [183] aus
  123. 1660 [142]# [193]runtext1
  124. 1670 [141]# [194]runtext1
  125. 1680 [183] stringout
  126. 1690 runm1[183] taste
  127. 1700 [142] 631
  128. 1710 [145]#78
  129. 1720 [181] [189][190]3
  130. 1730 [135] init             [192]"keine stuetzpunkte ==> neu initial.
  131. 1740 on#74
  132. 1750 int runm1
  133. 1760 usr dataclr          tan"stuetzpunkte eingeben
  134. 1770 [183] varinit
  135. 1780 [142]#1
  136. 1790 [139] naeh
  137. 1800 [183] z3220
  138. 1810 [142]# [193]runtext2
  139. 1820 [141]# [194]runtext2
  140. 1830 [135] stringout
  141. 1840 [192]
  142. 1850 bef3?[145]#3
  143. 1860 [181] bef4?
  144. 1870 [183] mausoff          [192]"'dload'
  145. 1880 read aus
  146. 1890 tan
  147. 1900 bef4?on#4
  148. 1910 int bef5?
  149. 1920 usr mausoff          tan"'dsave'
  150. 1930 [135] aus
  151. 1940 [192]
  152. 1950 bef5?[145]#5
  153. 1960 [181] bef6?
  154. 1970 [183] mausoff          [192]"'gload'
  155. 1980 read aus
  156. 1990 gloadinclose                  tan"einsprung nach 'gload' vom basic aus
  157. 2000 [142] multi
  158. 2010 [156]
  159. 2020 [143]#53
  160. 2030 [140] 1
  161. 2040 [142] [187]ff50
  162. 2050 [139] multi
  163. 2060 [143]#55
  164. 2070 [140] 1
  165. 2080 [157]
  166. 2090 [183] farbset          [192]"geladene grafik zeigen
  167. 2100 usr ein
  168. 2110 usr joyloop          tan"warten auf 'feuer'
  169. 2120 [159]
  170. 2130 [145] multi            [192]"war die geladene grafik im selben
  171. 2140 if multi            tan"modus (multi/hrs) wie die aktuelle?
  172. 2150 [182] [189][190]3              [192]"ja ==> ueberblenden
  173. 2160 usr clr2             tan"nein ==> bildschirm vorher loeschen
  174. 2170 [183] ein
  175. 2180 [183] farbset
  176. 2190 [183] umblenden
  177. 2200 [183] mausan
  178. 2210 [135] main
  179. 2220 [192]
  180. 2230 bef6?[145]#6
  181. 2240 [181] bef7?
  182. 2250 [183] mausoff          [192]"'gsave'
  183. 2260 read aus
  184. 2270 tan
  185. 2280 bef7?on#7
  186. 2290 int main
  187. 2300 usr busyon           tan"'multi' / 'hires'
  188. 2310 [142] multi            [192]"flag fuer multi-/hires-grafik
  189. 2320 input#1                tan"umschalten
  190. 2330 [139] multi
  191. 2340 [183] zeichnen         [192]"landschaft in diesem modus zeichnen
  192. 2350 usr clr2
  193. 2360 usr umsch
  194. 2370 usr farbset
  195. 2380 usr menueein
  196. 2390 usr umblenden        tan"und umblenden
  197. 2400 [183] busyoff
  198. 2410 [135] main
  199. 2420 [192]
  200. 2430 [192]
  201. 3000 [192]
  202. 3010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  203. 3020 [192]up menuezeile einblenden
  204. 3030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  205. 3040 [192]
  206. 3050 menueein[142]# [193]menuebeg
  207. 3060 [141]# [194]menuebeg
  208. 3070 [139] 95
  209. 3080 [138] 96
  210. 3090 [142]#[187]40
  211. 3100 [141]#[187]e1
  212. 3110 [139] 88
  213. 3120 [138] 89
  214. 3130 [152]
  215. 3140 [142] 95
  216. 3150 [136]#[193]321
  217. 3160 [139] 90
  218. 3170 [142] 96
  219. 3180 [136]#[194]321
  220. 3190 [139] 91
  221. 3200 [183] kopieren
  222. 3210 [142]#0
  223. 3220 [139] 53281
  224. 3230 [142] multi
  225. 3240 [181] menueeinback
  226. 3250 [142]# [193]multitext      [192]"multi=0 ==> 'multi' statt 'hires'
  227. 3260 gosub# peekmultitext      tan"ins menue schreiben
  228. 3270 [139] mem
  229. 3280 [138] mem[190]1
  230. 3290 [142]# [193]multxtadr
  231. 3300 [141]# [194]multxtadr
  232. 3310 [139] mem[190]2
  233. 3320 [138] mem[190]3
  234. 3330 [141]#39
  235. 3340 menueloop[142] (mem),y
  236. 3350 [139] (mem[190]2),y
  237. 3360 [161]
  238. 3370 [175] menueloop
  239. 3380 menueeinback[158]
  240. 3400 [192]
  241. 3410 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  242. 3420 [192]up maus[191]cursor anschalten
  243. 3430 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  244. 3440 [192]
  245. 3450 mausan[142]#180              [192]"maus-cursor auf bildschirm-mitte
  246. 3460 if xk'l             tan"etwas unterhalb des menues plazieren,
  247. 3470 [142]#60
  248. 3480 [139] yk
  249. 3490 [142]#1                [192]"farbe weiss und einschalten
  250. 3500 if 53269
  251. 3510 if 53287
  252. 3520 return#0
  253. 3530 if xk'h
  254. 3540 return#47               tan"sprite-pointer auf muster fuer 'pfeil'
  255. 3550 [139] [187]cff8
  256. 3560 [158]
  257. 3600 [192]
  258. 3610 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  259. 3620 [192]up neue punkte berechnen
  260. 3630 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  261. 3640 [192]
  262. 3650 berechnen[149] naeh             [192]"dreiecksseiten halbieren,
  263. 3660 return#0                tan"punkt in der mitte zufaellig nach
  264. 3670 [139] yz               [192]"oben oder unten verschieben
  265. 3680 return#rnd80
  266. 3690 if yg
  267. 3700 z3080return yg
  268. 3710 input#255
  269. 3720 if yg
  270. 3730 or z3140
  271. 3740 z3090return sw
  272. 3750 if xz
  273. 3760 z3100cont
  274. 3770 return xz
  275. 3780 save a2
  276. 3790 spc(
  277. 3800 gosub yz
  278. 3810 print#
  279. 3820 usr sto/rcl
  280. 3830 if fac
  281. 3840 print#
  282. 3850 return xz
  283. 3860 let a2
  284. 3870 spc(
  285. 3880 gosub yz
  286. 3890 print#
  287. 3900 usr sto/rcl
  288. 3910 print#
  289. 3920 let fac
  290. 3930 print#
  291. 3940 and expcos1
  292. 3950 cont
  293. 3960 goto
  294. 3970 if fac
  295. 3980 return naeh
  296. 3990 usr zufall
  297. 4000 print#
  298. 4010 let fac
  299. 4020 rem xz
  300. 4030 gosub yz
  301. 4040 cont
  302. 4050 usr sto/rcl
  303. 4060 z3110print#
  304. 4070 return xz
  305. 4080 let aw
  306. 4090 if xz
  307. 4100 z3120print#
  308. 4110 return xz
  309. 4120 let yz
  310. 4130 on#64
  311. 4140 < z3100
  312. 4150 z3130read z3200
  313. 4160 z3140return#0
  314. 4170 if xz
  315. 4180 z3150cont
  316. 4190 return yz
  317. 4200 save a2
  318. 4210 fn
  319. 4220 rem xz
  320. 4230 print#
  321. 4240 usr sto/rcl
  322. 4250 if fac
  323. 4260 rem xz
  324. 4270 print#
  325. 4280 return yz
  326. 4290 let a2
  327. 4300 fn
  328. 4310 print#
  329. 4320 usr sto/rcl
  330. 4330 print#
  331. 4340 let fac
  332. 4350 print#
  333. 4360 and expcos1
  334. 4370 cont
  335. 4380 goto
  336. 4390 if fac
  337. 4400 return naeh
  338. 4410 usr zufall
  339. 4420 print#
  340. 4430 let fac
  341. 4440 rem xz
  342. 4450 gosub yz
  343. 4460 cont
  344. 4470 usr sto/rcl
  345. 4480 z3155print#
  346. 4490 return xz
  347. 4500 let a2
  348. 4510 if xz
  349. 4520 z3160cont
  350. 4530 return xz
  351. 4540 save a2
  352. 4550 spc(
  353. 4560 print#
  354. 4570 return yz
  355. 4580 let a2
  356. 4590 fn
  357. 4600 print#
  358. 4610 usr sto/rcl
  359. 4620 if fac
  360. 4630 print#
  361. 4640 return xz
  362. 4650 let a2
  363. 4660 spc(
  364. 4670 cont
  365. 4680 return yz
  366. 4690 save a2
  367. 4700 fn
  368. 4710 print#
  369. 4720 usr sto/rcl
  370. 4730 print#
  371. 4740 let fac
  372. 4750 print#
  373. 4760 and expcos1
  374. 4770 cont
  375. 4780 goto
  376. 4790 if fac
  377. 4800 return naeh
  378. 4810 usr zufall
  379. 4820 print#
  380. 4830 let fac
  381. 4840 rem xz
  382. 4850 gosub yz
  383. 4860 cont
  384. 4870 usr sto/rcl
  385. 4880 z3180print#
  386. 4890 return xz
  387. 4900 let a2
  388. 4910 if xz
  389. 4920 z3190cont
  390. 4930 return#64
  391. 4940 save yz
  392. 4950 on xz
  393. 4960 < expcos3
  394. 4970 read z3150
  395. 4980 z3200print#
  396. 4990 return yz
  397. 5000 let a2
  398. 5010 if yz
  399. 5020 z3210on#64
  400. 5030 sgn expcos3
  401. 5040 read z3080
  402. 5050 z3220dim aw
  403. 5060 z3230dim a2
  404. 5070 z3240dim sw
  405. 5080 sys
  406. 5100 tan
  407. 5110 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  408. 5120 tanup hoehe(x/y) holen bzw. speichern
  409. 5130 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  410. 5140 tan
  411. 5150 sto/rclpoke                  tan"carry=0 ==> hoehe holen
  412. 5160 [156]                  [192]"carry=1 ==> hoehe speichern
  413. 5170 return# rndbf             tan"adresse d. hoehe(x/y) im array errechnen
  414. 5180 [139] mem
  415. 5190 [142]# [187]5f
  416. 5200 [139] mem[190]1
  417. 5210 storclloop[152]
  418. 5220 [142] mem
  419. 5230 [136]#65
  420. 5240 [139] mem
  421. 5250 [142] mem[190]1
  422. 5260 [136]#0
  423. 5270 [139] mem[190]1
  424. 5280 [161]
  425. 5290 [175] storclloop
  426. 5300 [162]
  427. 5310 [165]
  428. 5320 [159]
  429. 5330 [153]
  430. 5340 [179] storclm
  431. 5350 [139] (mem),y          [192]"hoehe speichern
  432. 5360 storclmreturn (mem),y          tan"hoehe holen
  433. 5370 [158]
  434. 5400 [192]
  435. 5410 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  436. 5420 [192]up zufaellige hoehenaenderung ermitteln
  437. 5430 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  438. 5440 [192]
  439. 5450 zufall[143]#[187]80              [192]"stimme#3 im sid fuer zufallszahl
  440. 5460 restore rndd418            tan"aktivieren, wellenform 'rauschen'
  441. 5470 [143]#[187]ff
  442. 5480 [140] [187]d40e
  443. 5490 [140] [187]d40f
  444. 5500 [143]#0
  445. 5510 [140] [187]d412
  446. 5520 [143]#[187]81
  447. 5530 [140] [187]d412
  448. 5540 [165]
  449. 5550 [161]
  450. 5560 [142] ditab,y          [192]"maximal-wert
  451. 5570 data 54299
  452. 5580 step
  453. 5590 cont
  454. 5600 save ditab,y
  455. 5610 sys
  456. 5620 tan
  457. 5630 ditabpos 63,31,15,7,3,1,0
  458. 5640 tan
  459. 5650 tan
  460. 5660 tan
  461. 5670 tan
  462. 5680 ygpos0
  463. 5690 yzpos0
  464. 5700 xzpos0
  465. 5800 tan
  466. 5810 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  467. 5820 tanup ldataschaft zeichnen
  468. 5830 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  469. 5840 tan
  470. 5850 zeichnenusr clr              tan"bitmap ab $a000 loeschen
  471. 5860 z3999[142]#64               [192]"schrittweite in abhaengigkeit von der
  472. 5870 rem naeh             tan"naeherung berechnen
  473. 5880 zloop1[134]
  474. 5890 [170]
  475. 5900 [181] zloop1
  476. 5910 [139] s
  477. 5920 z4000[142]#0
  478. 5930 [139] y
  479. 5940 zyloop[142]#0
  480. 5950 [139] x
  481. 5960 z4020[142]#2                [192]"farbe des dreiecks = blau
  482. 5970 if farbe
  483. 5980 return x
  484. 5990 for
  485. 6000 print#
  486. 6010 let y
  487. 6020 if p0'l
  488. 6030 return#0
  489. 6040 let#0
  490. 6050 if p0'h
  491. 6060 for p0'l
  492. 6070 input# p0'h
  493. 6080 z4030return y
  494. 6090 for
  495. 6100 print#
  496. 6110 let#yv
  497. 6120 if p1
  498. 6130 z4040rem x
  499. 6140 gosub y
  500. 6150 print#
  501. 6160 usr sto/rcl
  502. 6170 or z4050            tan"punkt unterhalb des meeresspiegels ==>
  503. 6180 [182] z4050            [192]"y-koord. nicht veraendern
  504. 6190 if fac              tan"sonst: ykoord.=ykoord.-hoehe,
  505. 6200 [154]
  506. 6210 [142] p1
  507. 6220 [148] fac
  508. 6230 [139] p1
  509. 6240 [142]#1                [192]"zeichenfarbe fuer das dreieck = gruen
  510. 6250 if farbe
  511. 6260 z4050return s
  512. 6270 for
  513. 6280 for
  514. 6290 print#
  515. 6300 let p0'l
  516. 6310 if p2'l
  517. 6320 return#0
  518. 6330 let#0
  519. 6340 if p2'h
  520. 6350 z4060return y
  521. 6360 for
  522. 6370 print#
  523. 6380 let#yv
  524. 6390 if p3
  525. 6400 z4070print#
  526. 6410 return x
  527. 6420 let s
  528. 6430 spc(
  529. 6440 gosub y
  530. 6450 print#
  531. 6460 usr sto/rcl
  532. 6470 or z4080
  533. 6480 abs z4080
  534. 6490 if fac              tan"punkt oberhalb des wasserspiegels
  535. 6500 [154]
  536. 6510 [142] p3
  537. 6520 [148] fac
  538. 6530 [139] p3
  539. 6540 [142]#1                [192]"farbe gruen
  540. 6550 if farbe
  541. 6560 z4080return s
  542. 6570 for
  543. 6580 print#
  544. 6590 let p0'l
  545. 6600 if p4'l
  546. 6610 return#0
  547. 6620 let#0
  548. 6630 if p4'h
  549. 6640 z4090print#
  550. 6650 return y
  551. 6660 let s
  552. 6670 for
  553. 6680 print#
  554. 6690 let#yv
  555. 6700 if p5
  556. 6710 z4100print#
  557. 6720 return y
  558. 6730 let s
  559. 6740 fn
  560. 6750 rem x
  561. 6760 print#
  562. 6770 usr sto/rcl
  563. 6780 or z4130
  564. 6790 abs z4130
  565. 6800 if fac              tan"punkt ueber dem meeresspiegel
  566. 6810 [154]
  567. 6820 [142] p5
  568. 6830 [148] fac
  569. 6840 [139] p5
  570. 6850 [142]#1                [192]"farbe=gruen
  571. 6860 if farbe
  572. 6870 z4130return p0'l             tan"verschieben in x-richtung um xv
  573. 6880 [152]                  [192]"zwecks zentrieren
  574. 6890 let#xv
  575. 6900 if p0'l
  576. 6910 return p0'h
  577. 6920 let#0
  578. 6930 if p0'h
  579. 6940 print#
  580. 6950 return p2'l
  581. 6960 let#xv
  582. 6970 if p2'l
  583. 6980 return p2'h
  584. 6990 let#0
  585. 7000 if p2'h
  586. 7010 print#
  587. 7020 return p4'l
  588. 7030 let#xv
  589. 7040 if p4'l
  590. 7050 return p4'h
  591. 7060 let#0
  592. 7070 if p4'h
  593. 7080 return p0'l             tan"linie p0,p1 nach p2,p3
  594. 7090 [143] p0'h
  595. 7100 [141] p1
  596. 7110 [139] x0'l
  597. 7120 [140] x0'h
  598. 7130 [138] y0
  599. 7140 [142] p2'l
  600. 7150 [143] p2'h
  601. 7160 [141] p3
  602. 7170 [139] x1'l
  603. 7180 [140] x1'h
  604. 7190 [138] y1
  605. 7200 [183] draw
  606. 7210 z4140[142] p2'l             [192]"linie p2,p3 nach p4,p5
  607. 7220 rem p2'h
  608. 7230 gosub p3
  609. 7240 if x0'l
  610. 7250 restore x0'h
  611. 7260 run y0
  612. 7270 return p4'l
  613. 7280 rem p4'h
  614. 7290 gosub p5
  615. 7300 if x1'l
  616. 7310 restore x1'h
  617. 7320 run y1
  618. 7330 usr draw
  619. 7340 z4150return p4'l             tan"linie p4,p5 nach p0,p1
  620. 7350 [143] p4'h
  621. 7360 [141] p5
  622. 7370 [139] x0'l
  623. 7380 [140] x0'h
  624. 7390 [138] y0
  625. 7400 [142] p0'l
  626. 7410 [143] p0'h
  627. 7420 [141] p1
  628. 7430 [139] x1'l
  629. 7440 [140] x1'h
  630. 7450 [138] y1
  631. 7460 [183] draw
  632. 7470 z4160[152]                  [192]"schleifenende
  633. 7480 return x
  634. 7490 let s
  635. 7500 if x
  636. 7510 return#63
  637. 7520 cont
  638. 7530 save y
  639. 7540 on x
  640. 7550 < expcos3
  641. 7560 read z4020
  642. 7570 return y
  643. 7580 let s
  644. 7590 if y
  645. 7600 on#63
  646. 7610 abs expcos2
  647. 7620 sgn zm
  648. 7630 read zyloop
  649. 7640 zmsys
  650. 7650 tan
  651. 7660 tan
  652. 7670 tan
  653. 7680 xpos0
  654. 7690 ypos0
  655. 7700 p0'lpos0
  656. 7710 p0'hpos0
  657. 7720 p1pos0
  658. 7730 p2'lpos0
  659. 7740 p2'hpos0
  660. 7750 p3pos0
  661. 7760 p4'lpos0
  662. 7770 p4'hpos0
  663. 7780 p5pos0
  664. 7790 spos0
  665. 7800 multipos1
  666. 7810 farbepos2
  667. 7900 tan
  668. 7910 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  669. 7920 tanup grafiksinnextmap loeschen
  670. 7930 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  671. 7940 tan
  672. 7950 clr2return#peekzielmap         tan"bitmap ab $e000 loeschen
  673. 7960 [181] clr[190]2
  674. 7970 clr[142]#[194]sourcemap       [192]"bitmap ab $a000 loeschen
  675. 7980 if rndfb
  676. 7990 return#0
  677. 8000 if rndfa
  678. 8010 fn
  679. 8020 rem#32
  680. 8030 lloopif (rndfa),y
  681. 8040 get
  682. 8050 int lloop
  683. 8060 verify rndfb
  684. 8070 +
  685. 8080 int lloop
  686. 8090 sys
  687. 8100 tan
  688. 8110 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  689. 8120 tanup farbe f. grafik setzen
  690. 8130 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  691. 8140 tan
  692. 8150 farbsetreturn multi            tan"farbbyte fuer
  693. 8160 [182] [189][190]3
  694. 8170 [142]#[187]56              [192]"multi-color-grafiken=$56 (gruen-blau)
  695. 8180 pos rnd2c
  696. 8190 return#rnd50              tan"hires-grafiken=$50 (gruen auf schwarz)
  697. 8200 [141]#0
  698. 8210 floop[139] [187]cc00,y
  699. 8220 [139] [187]cd00,y
  700. 8230 [139] [187]ce00,y
  701. 8240 [139] [187]cef8,y
  702. 8250 [161]
  703. 8260 [181] floop
  704. 8270 [192]
  705. 8280 [141]#39               [192]"farbe fuer die menuezeile:
  706. 8290 floop2return#rndf0              tan"hellgrau auf schwarz
  707. 8300 [139] [187]cc00,y
  708. 8310 [142]#[187]0f
  709. 8320 [139] [187]d800,y
  710. 8330 [161]
  711. 8340 [175] floop2
  712. 8350 [142]#0
  713. 8360 [139] 53281
  714. 8370 [158]
  715. 8400 [192]
  716. 8410 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  717. 8420 [192]up grafik einschalten
  718. 8430 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  719. 8440 [192]
  720. 8450 ein[142] 56576
  721. 8460 [131]#252
  722. 8470 [139] 56576
  723. 8480 [142] 56578
  724. 8490 [128]#3
  725. 8500 [139] 56578
  726. 8510 [142]#[188]00111000
  727. 8520 [139] 53272
  728. 8530 [142]#[187]cc
  729. 8540 [139] 648
  730. 8550 [142] 53265
  731. 8560 [128]#32
  732. 8570 [139] 53265
  733. 8580 [192]
  734. 8590 [142]#239              [192]"abhaengig von 'multi' hires-
  735. 8600 data 53270            tan"oder multi-color-modus waehlen
  736. 8610 [143] multi
  737. 8620 [182] einm
  738. 8630 [142]#16
  739. 8640 [128] 53270
  740. 8650 einm[139] 53270
  741. 8660 [158]
  742. 8700 [192]
  743. 8710 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  744. 8720 [192]up umschalten multi[191][194]hires/hires[191][194]multi
  745. 8730 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  746. 8740 [192]
  747. 8750 umsch[142] 53270
  748. 8760 [133]#16
  749. 8770 [139] 53270
  750. 8780 [158]
  751. 8800 [192]
  752. 8810 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  753. 8820 [192]up grafik ausschalten, normaler textbildschirm an
  754. 8830 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  755. 8840 [192]
  756. 8850 aus[142]#4
  757. 8860 [139] 648
  758. 8870 [142]#151
  759. 8880 [139] 56576
  760. 8890 [142]#21
  761. 8900 [139] 53272
  762. 8910 [142]#27
  763. 8920 [139] 53265
  764. 8930 [142] 53270
  765. 8940 [131]#[188]11101111
  766. 8950 [139] 53270
  767. 8960 [142]#bckgnd
  768. 8970 [139] 53281
  769. 8980 [158]
  770. 9000 [192]
  771. 9010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  772. 9020 [192]up punkt setzen/loeschen
  773. 9030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  774. 9040 [192]
  775. 9050 unplot[142]#[187]80
  776. 9060 [176] m32
  777. 9070 plot[142]#0
  778. 9080 m32[139] flag
  779. 9090 [143] 3
  780. 9100 [147]#200
  781. 9110 [179] m26
  782. 9120 ret[135] zurueck
  783. 9130 m26[142] 5
  784. 9140 [141] 4
  785. 9150 [145]#1
  786. 9160 [179] m27
  787. 9170 [181] ret
  788. 9180 [144]#64
  789. 9190 [180] ret
  790. 9200 m27[162]
  791. 9210 [134]
  792. 9220 [134]
  793. 9230 [134]
  794. 9240 [129]
  795. 9250 [165]
  796. 9260 [142] multtab,y
  797. 9270 [139] [187]f8
  798. 9280 [142] multtab[190]1,y
  799. 9290 [139] [187]f9
  800. 9300 [162]
  801. 9310 [131]#7
  802. 9320 [152]
  803. 9330 [136][187]f8
  804. 9340 [139] [187]f8
  805. 9350 [142] 4
  806. 9360 [156]
  807. 9370 [131]#[187]f8
  808. 9380 [152]
  809. 9390 [136]#0
  810. 9400 [156]
  811. 9410 [142] 5
  812. 9420 [136]# [194]sourcemap
  813. 9430 [165]
  814. 9440 [152]
  815. 9450 [159]
  816. 9460 [136] [187]f8
  817. 9470 [139] [187]61
  818. 9480 [163]
  819. 9490 [136] [187]f9
  820. 9500 [139] [187]62
  821. 9510 [159]
  822. 9520 [131]#7
  823. 9530 [133]#7
  824. 9540 [166]
  825. 9550 [142] zweitab,x
  826. 9560 [141]#0
  827. 9570 [143]#53
  828. 9580 [160]
  829. 9590 [140] 1
  830. 9600 [130] flag
  831. 9610 [175] m33
  832. 9620 [133]#[187]ff
  833. 9630 [131] ([187]61),y
  834. 9640 [135] m34
  835. 9650 m33[128] ([187]61),y
  836. 9660 m34[143]#55
  837. 9670 [140] 1
  838. 9680 [157]
  839. 9690 [139] ([187]61),y
  840. 9700 zurueck[158]
  841. 9710 [192]
  842. 9720 [192]
  843. 9730 [192]
  844. 9740 multtab[185]0,0,[187]40,1,[187]80,2,[187]c0,3
  845. 9750 [185]0,5,[187]40,6,[187]80,7,[187]c0,8
  846. 9760 [185]0,[187]0a,[187]40,[187]0b,[187]80,[187]0c,[187]c0,[187]0d
  847. 9770 [185]0,[187]0f,[187]40,[187]10,[187]80,[187]11,[187]c0,[187]12
  848. 9780 [185]0,[187]14,[187]40,[187]15,[187]80,[187]16,[187]c0,[187]17
  849. 9790 [185]0,[187]19,[187]40,[187]1a,[187]80,[187]1b,[187]c0,[187]1c
  850. 9800 [185]0,[187]1e
  851. 9810 [192]
  852. 9820 [192]
  853. 9830 zweitab[185]1,2,4,8,16,32,64,128
  854. 9900 [192]
  855. 9910 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  856. 9920 [192]up linie ziehen
  857. 9930 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  858. 9940 [192]
  859. 9950 draw[141]#1
  860. 9960 [138] ix
  861. 9970 [138] iy
  862. 9980 [138] ct'l
  863. 9990 [161]
  864. 10000 [138] ax
  865. 10010 [138] ay
  866. 10020 [138] ct'h
  867. 10030 [161]
  868. 10040 [142] x1'h
  869. 10050 [145] x0'h
  870. 10060 [179] nein1
  871. 10070 [181] ja1
  872. 10080 [142] x1'l
  873. 10090 [145] x0'l
  874. 10100 [180] ja1
  875. 10110 nein1[154]
  876. 10120 [142] x0'l
  877. 10130 [148] x1'l
  878. 10140 [139] dx'l
  879. 10150 [142] x0'h
  880. 10160 [148] x1'h
  881. 10170 [139] dx'h
  882. 10180 [138] ix
  883. 10190 [135] abfrage2
  884. 10200 ja1[154]
  885. 10210 [142] x1'l
  886. 10220 [148] x0'l
  887. 10230 [139] dx'l
  888. 10240 [142] x1'h
  889. 10250 [148] x0'h
  890. 10260 [139] dx'h
  891. 10270 abfrage2[142] y1
  892. 10280 [145] y0
  893. 10290 [180] ja2
  894. 10300 nein2[154]
  895. 10310 [142] y0
  896. 10320 [148] y1
  897. 10330 [138] iy
  898. 10340 [135] vollst 1
  899. 10350 ja2[154]
  900. 10360 [148] y0
  901. 10370 vollst 1[139] dy
  902. 10380 abfrage3[142] dx'h
  903. 10390 [181] ja3
  904. 10400 [142] dx'l
  905. 10410 [145] dy
  906. 10420 [180] ja3
  907. 10430 nein3[143] dx'l
  908. 10440 [142] dy
  909. 10450 [140] dy
  910. 10460 [139] dx'l
  911. 10470 [142] ix
  912. 10480 [139] ay
  913. 10490 [142] iy
  914. 10500 [139] ax
  915. 10510 [169]
  916. 10520 [138] ix
  917. 10530 [138] iy
  918. 10540 ja3[142] dx'h
  919. 10550 [134]
  920. 10560 [139] of'h
  921. 10570 [142] dx'l
  922. 10580 [137]
  923. 10590 [139] of'l
  924. 10600 [135] punkt
  925. 10610 loop[142] ix
  926. 10620 [176] minus 1
  927. 10630 add1 x0[152]
  928. 10640 [136] x0'l
  929. 10650 [139] x0'l
  930. 10660 [142] x0'h
  931. 10670 [136]#0
  932. 10680 [139] x0'h
  933. 10690 [135] add 1 y0
  934. 10700 minus 1[154]
  935. 10710 [142] x0'l
  936. 10720 [148]#1
  937. 10730 [139] x0'l
  938. 10740 [142] x0'h
  939. 10750 [148]#0
  940. 10760 [139] x0'h
  941. 10770 add 1 y0[142] ax
  942. 10780 [176] minus 2
  943. 10790 [152]
  944. 10800 [136] y0
  945. 10810 [135] vollst 2
  946. 10820 minus 2[154]
  947. 10830 [142] y0
  948. 10840 [148]#1
  949. 10850 vollst 2[139] y0
  950. 10860 [149] ct'l
  951. 10870 [181] add off
  952. 10880 [149] ct'h
  953. 10890 add off[152]
  954. 10900 [142] of'l
  955. 10910 [136] dy
  956. 10920 [139] of'l
  957. 10930 [142] of'h
  958. 10940 [136]#0
  959. 10950 [139] of'h
  960. 10960 [142] of'h
  961. 10970 [145] dx'h
  962. 10980 [179] punkt
  963. 10990 [181] ungleich
  964. 11000 [142] dx'l
  965. 11010 [145] of'l
  966. 11020 [180] punkt
  967. 11030 ungleich[154]
  968. 11040 [142] of'l
  969. 11050 [148] dx'l
  970. 11060 [139] of'l
  971. 11070 [142] of'h
  972. 11080 [148] dx'h
  973. 11090 [139] of'h
  974. 11100 [142] ay
  975. 11110 [176] minus 3
  976. 11120 [152]
  977. 11130 [136] x0'l
  978. 11140 [139] x0'l
  979. 11150 [142] x0'h
  980. 11160 [136]#0
  981. 11170 [135] add 2 x0
  982. 11180 minus 3[154]
  983. 11190 [142] x0'l
  984. 11200 [148]#1
  985. 11210 [139] x0'l
  986. 11220 [142] x0'h
  987. 11230 [148]#0
  988. 11240 add 2 x0[139] x0'h
  989. 11250 [142] iy
  990. 11260 [176] minus 4
  991. 11270 [152]
  992. 11280 [136] y0
  993. 11290 [135] add 2 y0
  994. 11300 minus 4[154]
  995. 11310 [142] y0
  996. 11320 [148]#1
  997. 11330 add 2 y0[139] y0
  998. 11340 punkt[141] y0
  999. 11350 [138] 3
  1000. 11360 [143] x0'l
  1001. 11370 [142] x0'h
  1002. 11380 [140] 4
  1003. 11390 [139] 5
  1004. 11400 [142] multi            [192]"multi=0 ?
  1005. 11410 abs setp             tan"ja ==> hires-modus, punkt setzen
  1006. 11420 [142] 4                [192]"multi-modus, zwei punkte!
  1007. 11430 data#log11111110        tan"linker punkt
  1008. 11440 [139] 4
  1009. 11450 [142] farbe
  1010. 11460 [134]                  [192]"farbe=1?
  1011. 11470 < expcos6              tan"nein ==> punkt setzen (blau:10)
  1012. 11480 [183] unplot           [192]"farbe=0, punkt loeschen (gruen:01)
  1013. 11490 read expcos3
  1014. 11500 setpusr plot
  1015. 11510 return multi            tan"multi=0?
  1016. 11520 [182] drawloop         [192]"ja ==> weiter mit der linie
  1017. 11530 verify 4                tan"multi-color, rechter punkt
  1018. 11540 [181] [189][190]2
  1019. 11550 [149] 5
  1020. 11560 [142] farbe
  1021. 11570 [134]
  1022. 11580 [179] [189][190]6              [192]"farbe=2 ==> punkt loeschen (blau:10)
  1023. 11590 usr plot             tan"farbe=1, punkt setzen (gruen:01)
  1024. 11600 [135] [189][190]3
  1025. 11610 [183] unplot
  1026. 11620 drawloop[142] ct'h
  1027. 11630 [145] dx'h
  1028. 11640 [179] next
  1029. 11650 [142] dx'l
  1030. 11660 [145] ct'l
  1031. 11670 [180] next
  1032. 11680 ende[158]
  1033. 11690 next[135] loop
  1034. 11700 [192]
  1035. 11710 [192]
  1036. 11720 [192]
  1037. 11730 x0'l[185]0
  1038. 11740 x0'h[185]0
  1039. 11750 y0[185]0
  1040. 11760 x1'l[185]0
  1041. 11770 x1'h[185]0
  1042. 11780 y1[185]0
  1043. 11790 ix[185]0
  1044. 11800 iy[185]0
  1045. 11810 ax[185]0
  1046. 11820 ay[185]0
  1047. 11830 dx'l[185]0
  1048. 11840 dx'h[185]0
  1049. 11850 dy[185]0
  1050. 11860 [185]0
  1051. 11870 of'l[185]0
  1052. 11880 of'h[185]0
  1053. 11890 ct'l[185]0
  1054. 11900 ct'h[185]0
  1055. 11910 flag[185]0
  1056. 12000 [192]
  1057. 12010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1058. 12020 [192]up joystick[191]abfrage
  1059. 12030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1060. 12040 [192]
  1061. 12050 joyloop[160]                  [192]"tastatur-abfrage aus
  1062. 12060 return rnddc00
  1063. 12070 cmd
  1064. 12080 oben?dim
  1065. 12090 spc(
  1066. 12100 sgn unten?
  1067. 12110 return yk
  1068. 12120 on#51
  1069. 12130 < unten?
  1070. 12140 wait yk
  1071. 12150 unten?new
  1072. 12160 dim
  1073. 12170 spc(
  1074. 12180 sgn links?
  1075. 12190 return yk
  1076. 12200 on#235
  1077. 12210 sgn links?
  1078. 12220 verify yk
  1079. 12230 links?new
  1080. 12240 dim
  1081. 12250 spc(
  1082. 12260 sgn rechts?
  1083. 12270 return xk'h
  1084. 12280 data#1
  1085. 12290 int links!
  1086. 12300 return xk'l
  1087. 12310 on#21
  1088. 12320 < rechts?
  1089. 12330 links!wait xk'l
  1090. 12340 int rechts?
  1091. 12350 wait xk'h
  1092. 12360 wait xk'l
  1093. 12370 rechts?new
  1094. 12380 dim
  1095. 12390 spc(
  1096. 12400 sgn feuer?
  1097. 12410 return xk'h
  1098. 12420 data#1
  1099. 12430 abs rechts!
  1100. 12440 return xk'l
  1101. 12450 on#66
  1102. 12460 sgn feuer?
  1103. 12470 rechts!verify xk'l
  1104. 12480 int feuer?
  1105. 12490 verify xk'h
  1106. 12500 verify xk'l
  1107. 12510 feuer?gosub#0
  1108. 12520 new
  1109. 12530 dim
  1110. 12540 sgn position
  1111. 12550 gosub#1
  1112. 12560 positionrun feuerflag
  1113. 12570 return xk'l             tan"x-/y-koordinate/8 ==> spalte/zeile
  1114. 12580 [154]                  [192]"fuer textbildschirm
  1115. 12590 save#20               tan"spriteverschiebung bereuecksichtigen
  1116. 12600 [156]
  1117. 12610 [142] xk'h
  1118. 12620 [148]#0
  1119. 12630 [134]                  [192]"x-koordinate/8
  1120. 12640 open
  1121. 12650 goto
  1122. 12660 dim
  1123. 12670 dim
  1124. 12680 if spalte
  1125. 12690 return yk
  1126. 12700 cont
  1127. 12710 save#50
  1128. 12720 dim                  tan"y-koordinate/8
  1129. 12730 [134]
  1130. 12740 [134]
  1131. 12750 [139] zeile
  1132. 12760 [143]#verz             [192]"verzoegerungsschleife
  1133. 12770 gosub#0
  1134. 12780 joyverzget
  1135. 12790 int joyverz
  1136. 12800 +
  1137. 12810 int joyverz
  1138. 12820 return feuerflag        tan"feuer gedrueckt?
  1139. 12830 [181] [189][190]3              [192]"ja, unterprogramm verlassen
  1140. 12840 read joyloop          tan"nein, weiter abfragen
  1141. 12850 [158]
  1142. 12860 [192]
  1143. 12870 feuerflag[185]0
  1144. 12880 zeile[185]0
  1145. 12890 spalte[185]0
  1146. 12900 verzzlr[185]0
  1147. 13000 [192]
  1148. 13010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1149. 13020 [192]up befehlsnummer ermitteln
  1150. 13030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1151. 13040 [192]
  1152. 13050 getbefnr[142] spalte           [192]"maus-spalte mit anfangspositionen
  1153. 13060 gosub#0                tan"der menuebefehle vergleichen
  1154. 13070 verglloop[145] begtab,y
  1155. 13080 [169]
  1156. 13090 [180] verglloop        [192]"solange die mausspalte groesser als
  1157. 13100 get                  tan"die anfangsposition des befehls ist,
  1158. 13110 [163]                  [192]"weiter vergleichen
  1159. 13120 sys                  tan"befehlsnummer in akku uebergeben
  1160. 13200 [192]
  1161. 13210 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1162. 13220 [192]up befehl inve[155]eren
  1163. 13230 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1164. 13240 [192]
  1165. 13250 befinv[141] befehl
  1166. 13260 [142] begtab[191]1,y
  1167. 13270 [139] anf
  1168. 13280 [142] begtab,y
  1169. 13290 [139] end
  1170. 13300 [154]
  1171. 13310 [142] end
  1172. 13320 [148] anf
  1173. 13330 [139] fac
  1174. 13340 [142]#0
  1175. 13350 [139] fac[190]1
  1176. 13360 [139] anf[190]1
  1177. 13370 [141]#3
  1178. 13380 achtfachl[129] anf
  1179. 13390 [132] anf[190]1
  1180. 13400 [129] fac
  1181. 13410 [132] fac[190]1
  1182. 13420 [161]
  1183. 13430 [181] achtfachl
  1184. 13440 [142] anf
  1185. 13450 [139] mem
  1186. 13460 [142] anf[190]1
  1187. 13470 [152]
  1188. 13480 [136]#[187]e0
  1189. 13490 [139] mem[190]1
  1190. 13500 [160]
  1191. 13510 [142]#53
  1192. 13520 [139] 1
  1193. 13530 [141] fac
  1194. 13540 [161]
  1195. 13550 invloop[142] (mem),y
  1196. 13560 [133]#255
  1197. 13570 [139] (mem),y
  1198. 13580 [161]
  1199. 13590 [175] invloop
  1200. 13600 [142]#55
  1201. 13610 [139] 1
  1202. 13620 [157]
  1203. 13630 [158]
  1204. 13640 [192]
  1205. 13650 begtab[185]0,5,9,15,21,27,33,38
  1206. 13660 [192]
  1207. 13670 befehl[185]0
  1208. 13680 anf[185]0
  1209. 13690 [185]0
  1210. 13700 end[185]5
  1211. 13710 [185]0
  1212. 13800 [192]
  1213. 13810 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1214. 13820 [192]up warten bis feuer[191]taste nicht gedrueckt
  1215. 13830 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1216. 13840 [192]
  1217. 13850 feueroff?[160]                  [192]"warten, bis feuer nicht mehr gedrueckt
  1218. 13860 return rnddc00
  1219. 13870 cmd
  1220. 13880 data#16
  1221. 13890 abs feueroff?
  1222. 13900 sys
  1223. 14000 tan
  1224. 14010 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1225. 14020 tanup busysinsymbol einblenden
  1226. 14030 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1227. 14040 tan
  1228. 14050 busyonreturn#1                tan"spritte-pointer umschalten auf biene
  1229. 14060 [139] 53287
  1230. 14070 [142]#46
  1231. 14080 [139] [187]cff8
  1232. 14090 [158]
  1233. 14100 [192]
  1234. 14110 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1235. 14120 [192]up busy[191]symbol ausblenden
  1236. 14130 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1237. 14140 [192]
  1238. 14150 busyoff[142]#1                [192]"sprite-pointer zuruecksetzen auf maus
  1239. 14160 if 53287
  1240. 14170 return#47
  1241. 14180 if rndcff8
  1242. 14190 sys
  1243. 14200 tan
  1244. 14210 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1245. 14220 tanup weiches umblenden der grafik
  1246. 14230 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1247. 14240 tan
  1248. 14250 umblendenreturn#53               tan"grafik aus sourcemap ($a000)
  1249. 14260 [160]                  [192]"zeilenweise nach zielmap ($e000)
  1250. 14270 if 1                tan"umblenden
  1251. 14280 [142]#8
  1252. 14290 [139] fac
  1253. 14300 screencopl1[142] fac
  1254. 14310 [156]
  1255. 14320 [134]
  1256. 14330 [134]
  1257. 14340 [134]
  1258. 14350 [129]
  1259. 14360 [165]
  1260. 14370 [142] multtab,y
  1261. 14380 [139] mem
  1262. 14390 [139] mem[190]2
  1263. 14400 [142] multtab[190]1,y
  1264. 14410 [139] mem[190]1
  1265. 14420 [139] mem[190]3
  1266. 14430 [152]
  1267. 14440 [142] mem[190]1
  1268. 14450 [136]# [194]sourcemap
  1269. 14460 [139] mem[190]1
  1270. 14470 [152]
  1271. 14480 [142] mem[190]3
  1272. 14490 [136]# [194]zielmap
  1273. 14500 [139] mem[190]3
  1274. 14510 [159]
  1275. 14520 [131]#7
  1276. 14530 [156]
  1277. 14540 [152]
  1278. 14550 [136] mem
  1279. 14560 [139] mem
  1280. 14570 [142] mem[190]1
  1281. 14580 [136]#0
  1282. 14590 [139] mem[190]1
  1283. 14600 [159]
  1284. 14610 [152]
  1285. 14620 [136] mem[190]2
  1286. 14630 [139] mem[190]2
  1287. 14640 [142] mem[190]3
  1288. 14650 [136]#0
  1289. 14660 [139] mem[190]3
  1290. 14670 [143]#39
  1291. 14680 [141]#0
  1292. 14690 screencopl2[142] (mem),y
  1293. 14700 [139] (mem[190]2),y
  1294. 14710 [152]
  1295. 14720 [142] mem
  1296. 14730 [136]#8
  1297. 14740 [139] mem
  1298. 14750 [142] mem[190]1
  1299. 14760 [136]#0
  1300. 14770 [139] mem[190]1
  1301. 14780 [152]
  1302. 14790 [142] mem[190]2
  1303. 14800 [136]#8
  1304. 14810 [139] mem[190]2
  1305. 14820 [142] mem[190]3
  1306. 14830 [136]#0
  1307. 14840 [139] mem[190]3
  1308. 14850 [170]
  1309. 14860 [175] screencopl2
  1310. 14870 [141]#1
  1311. 14880 [138] feuerflag
  1312. 14890 [143]#umblendverz
  1313. 14900 [183] joyverz          [192]"verzoegerung fuer langsames, 'weiches'
  1314. 14910 verify fac              tan"umblenden
  1315. 14920 [142] fac
  1316. 14930 [145]#200
  1317. 14940 [181] screencopl1
  1318. 14950 [142]#55
  1319. 14960 [139] 1
  1320. 14970 [157]
  1321. 14980 [158]
  1322. 15000 [192]
  1323. 15010 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1324. 15020 [192]up hoehen[191]array loeschen
  1325. 15030 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1326. 15040 [192]
  1327. 15050 dataclr[142]#[193]array           [192]"feld mit den hoehen der eckpunkte
  1328. 15060 gosub#peekarray           tan"mit nullen ueberschreiben
  1329. 15070 [139] mem
  1330. 15080 [138] mem[190]1
  1331. 15090 [143]#17
  1332. 15100 [141]#0
  1333. 15110 [165]
  1334. 15120 datclrl[139] (mem),y
  1335. 15130 [161]
  1336. 15140 [181] datclrl
  1337. 15150 [149] mem[190]1
  1338. 15160 [170]
  1339. 15170 [181] datclrl
  1340. 15180 [158]
  1341. 15200 [192]
  1342. 15210 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1343. 15220 [192]up variablen initialisieren
  1344. 15230 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1345. 15240 [192]
  1346. 15250 varinit[142]#0                [192]"naeh=0
  1347. 15260 if naeh
  1348. 15270 return#32               tan"sw=32:a2=32
  1349. 15280 [139] sw
  1350. 15290 [139] a2
  1351. 15300 [129]
  1352. 15310 [139] aw               [192]"aw=64
  1353. 15320 sys
  1354. 15330 tan
  1355. 15340 tan
  1356. 15350 tan
  1357. 15360 runtext1pos"[147][144]***************** run ******************",13
  1358. 15370 pos"wollen sie stuetzpunkte eingeben (j/n)?",13,0
  1359. 15380 runtext2pos" 1[192][192][192][192][192]2[192][192][192][192][192]3",13
  1360. 15390 pos"  [205]   [206] [205]   [206]  _ diese skizze zeigt",13
  1361. 15400 pos"   [205] [206]   [205] [206]     ihnen die lage der",13
  1362. 15410 pos"    4[192][192][192][192][192]5      sechs stuetzpunkte",13
  1363. 15420 pos"     [205]   [206]       in der grafik.",13
  1364. 15430 pos"      [205] [206]",13
  1365. 15440 pos"       6",13,0
  1366. 15500 tan
  1367. 15510 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1368. 15520 tanup maussincursor ausschalten
  1369. 15530 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1370. 15540 tan
  1371. 15550 mausoffreturn#0                tan"sprites ausschalten
  1372. 15560 [139] 53269
  1373. 15570 [158]
  1374. 15600 [192]
  1375. 15610 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1376. 15620 [192]up warten auf tastendruck
  1377. 15630 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1378. 15640 [192]
  1379. 15650 tast&text[142]# [193]tatext         [192]"text 'taste' ausgeben
  1380. 15660 gosub# peektatext
  1381. 15670 usr stringout
  1382. 15680 tan
  1383. 15690 tastereturn#0                tan"auf taste warten
  1384. 15700 [139] 198
  1385. 15710 tastl[142] 198
  1386. 15720 [182] tastl
  1387. 15730 [142] 631
  1388. 15740 [143]#0
  1389. 15750 [140] 198
  1390. 15760 [158]
  1391. 15800 [192]
  1392. 15810 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1393. 15820 [192]up directory ausgeben
  1394. 15830 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1395. 15840 [192]
  1396. 15850 dir[142]#36               [192]"36=ascii fuer '$'
  1397. 15860 if mem              tan"parameter fuer namen setzen
  1398. 15870 [142]#mem
  1399. 15880 [139] [187]bb
  1400. 15890 [142]#0
  1401. 15900 [139] [187]bc
  1402. 15910 [142]#1                [192]"filenummer
  1403. 15920 if rndb7
  1404. 15930 return#8                tan"geraeteadresse
  1405. 15940 [139] [187]ba
  1406. 15950 [142]#[187]60              [192]"sekundaeradresse
  1407. 15960 if rndb9
  1408. 15970 usr rndf3d5            tan"file oeffnen
  1409. 15980 [142] [187]ba
  1410. 15990 [183] talk
  1411. 16000 [142] [187]b9
  1412. 16010 [183] sekadrsend
  1413. 16020 [142]#0                [192]"status=0
  1414. 16030 if 144
  1415. 16040 gosub#3                tan"zwei bytes koppeladresse ueberspringen
  1416. 16050 dirneuzeil[138] mem
  1417. 16060 [183] iecin
  1418. 16070 [139] mem[190]1
  1419. 16080 [141] 144
  1420. 16090 [181] dirback
  1421. 16100 [183] iecin
  1422. 16110 [141] 144
  1423. 16120 [181] dirback
  1424. 16130 [141] mem
  1425. 16140 [161]
  1426. 16150 [181] dirneuzeil
  1427. 16160 [143] mem[190]1
  1428. 16170 [183] numout           [192]"zeilennummer ausgeben
  1429. 16180 return#32
  1430. 16190 usr print
  1431. 16200 dirnxtcharusr iecin
  1432. 16210 rem 144
  1433. 16220 int dirback
  1434. 16230 spc(
  1435. 16240 abs dirnxtzeil
  1436. 16250 usr print
  1437. 16260 read dirnxtchar
  1438. 16270 dirnxtzeilreturn#13               tan"zeilenende erreicht, <return>
  1439. 16280 [183] print
  1440. 16290 [142] 214              [192]"schon zeile 22?
  1441. 16300 on#22
  1442. 16310 < dirm             tan"nein, also weiter, naechste zeile
  1443. 16320 [183] tast&text        [192]"ja, auf taste warten
  1444. 16330 rem#24               tan"zeile 4 bis 24 loeschen
  1445. 16340 zeilclrloop[183] zeilclr
  1446. 16350 [170]
  1447. 16360 [147]#4
  1448. 16370 [181] zeilclrloop
  1449. 16380 [142]# [193]hometxt
  1450. 16390 [141]# [194]hometxt
  1451. 16400 [183] stringout
  1452. 16410 dirm[141]#2
  1453. 16420 [181] dirneuzeil
  1454. 16430 dirback[183] [187]f642
  1455. 16440 [158]
  1456. 16450 [192]
  1457. 16460 tatext[185] 13,"  tastewait",13,0
  1458. 16470 hometxt[185]"",0
  1459. 16500 [192]
  1460. 16510 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1461. 16520 [192]up grafik[160]te umkopieren
  1462. 16530 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1463. 16540 [192]
  1464. 16550 grafikcopy[142]#54               [192]"grafik schnell von $a000 nach $e000
  1465. 16560 close                  tan"kopieren
  1466. 16570 [139] 1
  1467. 16580 [142]#[187]a0
  1468. 16590 [139] mem[190]1
  1469. 16600 [142]#[187]e0
  1470. 16610 [139] mem[190]3
  1471. 16620 [142]#0
  1472. 16630 [139] mem
  1473. 16640 [139] mem[190]2
  1474. 16650 [165]
  1475. 16660 [143]#32
  1476. 16670 grfcopl[142] (mem),y
  1477. 16680 [139] (mem[190]2),y
  1478. 16690 [161]
  1479. 16700 [181] grfcopl
  1480. 16710 [149] mem[190]1
  1481. 16720 [149] mem[190]3
  1482. 16730 [170]
  1483. 16740 [181] grfcopl
  1484. 16750 [142]#55
  1485. 16760 [139] 1
  1486. 16770 [157]
  1487. 16780 [158]
  1488. 16800 [192]
  1489. 16810 [192][189][189][189][189][189][189][189][189]
  1490. 16820 [192]up laden
  1491. 16830 [192][189][189][189][189][189][189][189][189]
  1492. 16840 [192]
  1493. 16850 laden[143]#8                [192]"parameter fuer load setzen
  1494. 16860 gosub#0
  1495. 16870 usr filpar
  1496. 16880 rem#atnfilename
  1497. 16890 gosub#peekfilename
  1498. 16900 return filenamlaeng
  1499. 16910 usr filnam
  1500. 16920 return#0
  1501. 16930 rem fileanf'l
  1502. 16940 gosub fileanf'h
  1503. 16950 read load
  1504. 17000 tan
  1505. 17010 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1506. 17020 tanup abspeichern
  1507. 17030 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1508. 17040 tan
  1509. 17050 speichernreturn#54               tan"$a000-$bfff auf ram umschalten
  1510. 17060 [160]
  1511. 17070 [139] 1
  1512. 17080 [143]#8                [192]"parameter fuer save setzen
  1513. 17090 usr filpar
  1514. 17100 rem#atnfilename
  1515. 17110 gosub#peekfilename
  1516. 17120 return filenamlaeng
  1517. 17130 usr filnam
  1518. 17140 rem fileanf'l
  1519. 17150 gosub fileanf'h
  1520. 17160 restore mem
  1521. 17170 run memcos1
  1522. 17180 return#mem
  1523. 17190 rem fileend'l
  1524. 17200 gosub fileend'h
  1525. 17210 usr save
  1526. 17220 return#55
  1527. 17230 if 1
  1528. 17240 cmd
  1529. 17250 sys
  1530. 17260 tan
  1531. 17270 fileanf'lpos0
  1532. 17280 fileanf'hpos0
  1533. 17290 fileend'lpos0
  1534. 17300 fileend'hpos0
  1535. 17310 filenamlaengpos0
  1536. 17400 tan
  1537. 17410 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1538. 17420 tanup daten laden
  1539. 17430 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1540. 17440 tan
  1541. 17450 dloadreturn#atnarray           tan"startadresse='array' uebergeben
  1542. 17460 [139] fileanf'l
  1543. 17470 [142]#[194]array
  1544. 17480 [139] fileanf'h
  1545. 17490 [135] laden
  1546. 17500 [192]
  1547. 17510 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1548. 17520 [192]up daten speichern
  1549. 17530 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1550. 17540 [192]
  1551. 17550 dsave[142]#[193]array           [192]"startadresse='array',
  1552. 17560 if fileanf'l        tan"endadresse='datend'
  1553. 17570 [142]#[194]array
  1554. 17580 [139] fileanf'h
  1555. 17590 [142]#[193]datend
  1556. 17600 [139] fileend'l
  1557. 17610 [142]#[194]datend
  1558. 17620 [139] fileend'h
  1559. 17630 [135] speichern
  1560. 17700 [192]
  1561. 17710 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1562. 17720 [192]up grafik laden
  1563. 17730 [192][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]
  1564. 17740 [192]
  1565. 17750 gload[142]#0                [192]"ladeadresse=$e000
  1566. 17760 if fileanf'l
  1567. 17770 return#rnde0
  1568. 17780 if fileanf'h
  1569. 17790 read laden
  1570. 17800 tan
  1571. 17810 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1572. 17820 tanup grafik speichern
  1573. 17830 tanexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexpexp
  1574. 17840 tan
  1575. 17850 gsavereturn# atnsourcemap      tan"startadresse=$a000
  1576. 17860 [139] fileanf'l        [192]"endadresse=$c000
  1577. 17870 return# peeksourcemap
  1578. 17880 if fileanf'h
  1579. 17890 return#atnrndc000
  1580. 17900 if fileend'l
  1581. 17910 return#peekrndc000
  1582. 17920 if fileend'h
  1583. 17930 return multi            tan"grafik-modus mit in nicht sichtbaren
  1584. 17940 [139] [187]bf50            [192]"teil der grafik schreiben
  1585. 17950 read speichern
  1586.